home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Uptime_The_Disk_Monthly_V1_05_19xx_Uptime_staff_Side_A.d64 / uncruncher demo (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  81 lines
  1. 30 rem uncrunch demo
  2. 40 poke 53280,11:poke 53281,0
  3. 50 if a=0 then a=1:load"uncruncher",8,1:rem uncrunch ml
  4. 52 clr:rem fixes load 8,1
  5. 55 gosub 700
  6. 57 po=1033+(4*40)
  7. 58 read n:if n>8 then n=8
  8. 60 for x=1 to n:read f$(x),f1$(x):next
  9. 65 x=1:t=1
  10. 70 print"[154][147][158]"tab(5)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  11. 80 printtab(5)" [199]raphic [198]ile [213]ncruncher [196]emo "
  12. 90 print" [208]lease choose picture: [159]"
  13. 100 print:forl=1 to n
  14. 110 print""f$(l);
  15. 150 print:print:next
  16. 160 print""tab(12)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  17. 165 printtab(12)" [198]8 [198]or [213]p[212]ime "
  18. 167 poke po+(x*80),62:poke po+(x*80)+21,60:gosub 500
  19. 170 get c$:gosub 400
  20. 175 if c$="" then 170
  21. 178 poke 198,0
  22. 180 if c$="[140]" then sys (8*4096)
  23. 184 if c$="[145]" then x=x-1
  24. 186 if c$="" then x=x+1
  25. 188 if c$=chr$(13) then 200
  26. 190 if x=0 then x=n
  27. 192 if x=n+1 then x=1
  28. 193 if x=t then 170
  29. 197 gosub 500
  30. 198 t=x
  31. 199 goto 170
  32. 200 sys 49152+12: rem blank screen
  33. 210 sys 49152+6 : rem set multi-color
  34. 220 open 15,8,15
  35. 230 open 2,8,2,"0:"+f1$(x)+",p,r"
  36. 235 gosub 600
  37. 240 sys 49152
  38. 250 close 2
  39. 252 close 15
  40. 255 sys 49152+15:rem enable screen
  41. 257 poke 198,0
  42. 260 get a$:a=peek(56320) and 16
  43. 265 if a$="" and a<>0 then 260
  44. 270 sys 49152+9 : rem reset to normal text
  45. 275 poke 53280,11: poke 53281,0
  46. 280 goto 70
  47. 400 p=not peek(56320) and 31
  48. 410 if p and 1 then c$="[145]"
  49. 420 if p and 2 then c$=""
  50. 430 if p and 16 then c$=chr$(13)
  51. 440 return
  52. 500 rem print reverse bar
  53. 510 p=po+(t*80)+1
  54. 520 h=int(p/256):l=p-(h*256)
  55. 530 poke 251,l:poke 252,h
  56. 540 p=po+(x*80)+1
  57. 550 h=int(p/256):l=p-(h*256)
  58. 560 poke 253,l:poke 254,h
  59. 562 poke po+(t*80),32:poke po+(t*80)+21,32
  60. 564 poke po+(x*80),62:poke po+(x*80)+21,60
  61. 570 sys (4*4096)
  62. 580 return
  63. 600 input#15,er$,em$,et$,es$
  64. 610 if er$<"20" then return
  65. 615 sys 49161:sys 49167
  66. 620 close 2:close 15
  67. 630 print"[147] [196]isk error:"
  68. 640 print""er$", "em$","et$","es$
  69. 650 get a$:if a$="" then 650
  70. 660 goto 70
  71. 700 for i=0 to 22
  72. 710 read d:poke 16384+i,d:next
  73. 720 return
  74. 750 data 160,18,177,251,41,127,145,251
  75. 760 data 136,208,247,160,18,177,253,9
  76. 770 data 128,145,253,136,208,247,96
  77. 800 data  3
  78. 820 data "[205]urder [195]ruise",cruise
  79. 830 data "[203]arate",karate
  80. 840 data "[195]ompact [196]isc",disc
  81.